home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / 1-bc-cad.zip / CLSS.LSP < prev    next >
Text File  |  1992-05-11  |  260b  |  10 lines
  1. ;THIS FILE WILL PERFORM SSX FIRST THEN CHANGE THE ITEMS
  2. (defun c:CLSS ()
  3.   (command)
  4.   (SSX)
  5.   (command)
  6.   (setq LA (cdr (assoc '8 (entget (car (entsel "\nExtract info from what object: "))))))
  7.   (command "CHANGE" "P" "" "P" "LA" LA "") 
  8.   (prin1)
  9. )
  10.